Fix compilation warning i eieio-base

* lisp/emacs-lisp/eieio-base.el (clone): Use eieio-object-class
instead of obsolete function class-of.

diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el
index 203541fdfc4518cf58b49c12be46eba052488722..0b2909c1e8d6c61a40bbc6f083bd6c57f7e0d7fa 100644 (file)
--- a/lisp/emacs-lisp/eieio-base.el
+++ b/lisp/emacs-lisp/eieio-base.el
@@ -71,7 +71,7 @@ All slots are unbound, except those initialized with PARAMS."
   (let ((nobj  (if (stringp (car params))
                    (cl-call-next-method obj (pop params))
                  (cl-call-next-method obj))))
-    (dolist (descriptor (eieio-class-slots (class-of nobj)))
+    (dolist (descriptor (eieio-class-slots (eieio-object-class nobj)))
       (let ((slot (eieio-slot-descriptor-name descriptor)))
         (slot-makeunbound nobj slot)))
     (when params